home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / tcp / rxsocket.lha / rxsocket / install < prev    next >
Text File  |  2000-11-28  |  4KB  |  150 lines
  1. ; $VER: RxSocket_Install 3.5 (1.11.2000)
  2.  
  3. (procedure P_SetMessages
  4.  
  5.     (set #WhatInstallPromptMsg            "What do you want to install?")
  6.     (set #WhatInstallHelpMsg            "Choose what you want to install:\n\no Libraries - all the libraries needed by RxSocket to work\n\no Utilities - some little utilities, such as rxs, needed to call macros from inetd\n\no Documentation - RxSocket documentation in AMigaGuide format\n\no Examples - RxSocket ARexx macros")
  7.  
  8.     (set #WhatInstallLibrariesMsg        "Libraries")
  9.     (set #WhatInstallUtilitiesMsg        "Utilities")
  10.     (set #WhatInstallDocumentationMsg    "Documentation")
  11.     (set #WhatInstallExamplesMsg        "Examples")
  12.  
  13.     (set #AskLibsDirPromptMsg            "Select the drawer where you want to install RxSocket libraries")
  14.     (set #AskLibsDirHelpMsg                "In the drawer you supply here, there will be installed rxsocket.library rxlibnet.library and rmh.library. This drawer MUST BE in your LIBS: assignment")
  15.  
  16.     (set #AskUtilitisDirPromptMsg        "Select the drawer where you want to install some RxSocket little utilities.")
  17.     (set #AskUtilitiesDirHelpMsg        "In the drawer you supply here, there will be installed some little utilities such as rxs, needed to launch macro from inetd and rxhelp, needed to obtain RxSocket functions inline help. The best drawer to place them is C: ; anyway, it should be in your PATH")
  18.  
  19.     (set #AskGuideDirPromptMsg            "Select the drawer where you want to install RxSocket documentation")
  20.     (set #AskGuideDirHelpMsg            "In the drawer you supply here, there will be installed the RxSocket documentation in AmigaGuide format")
  21.  
  22.     (set #AskExamplesDirPromptMsg        "Select the drawer where you want to install RxSocket examples macro")
  23.     (set #AskExamplesDirHelpMsg            "In the drawer you supply here, there will be installed some RxSocket examples ARexx macros")
  24.  
  25.     (set #CopyingLibsMsg                "Copying or Updating libraries")
  26.     (set #CopyingUtilitiesMsg            "Copying or Updating utilities")
  27.     (set #CopyingGuideMsg                "Copying documentation")
  28.     (set #CopyingExamplesMsg            "Copying examples")
  29. )
  30.  
  31. (procedure P_ChooseWhatIstall
  32.     (set #WhatInstall
  33.         (askoptions
  34.             (prompt #WhatInstallPromptMsg
  35.                 (help #WhatInstallHelpMsg)
  36.                 (choices #WhatInstallLibrariesMsg #WhatInstallUtilitiesMsg #WhatInstallDocumentationMsg    #WhatInstallExamplesMsg)
  37.                )
  38.           )
  39.      )
  40. )
  41.  
  42. (procedure P_AskLibsDir
  43.     (set #libsDir
  44.         (askdir
  45.                (prompt #AskLibsDirPromptMsg)
  46.                (help #AskLibsDirHelpMsg)
  47.                (default "LIBS:")
  48.           )
  49.      )
  50. )
  51.  
  52. (procedure P_AskUtiliesDir
  53.     (set #utilitiesDir
  54.         (askdir
  55.                (prompt #AskUtilitisDirPromptMsg)
  56.                (help #AskUtilitiesDirHelpMsg)
  57.                (default "C:")
  58.           )
  59.      )
  60. )
  61.  
  62. (procedure P_AskGuideDir
  63.     (set #guideDir
  64.         (askdir
  65.            (prompt #AskGuideDirPromptMsg)
  66.            (help #AskGuideDirHelpMsg)
  67.            (default "Ram Disk:")
  68.         )
  69.      )
  70. )
  71.  
  72. (procedure P_AskExamplesDir
  73.     (set #examplesDir
  74.         (askdir
  75.             (prompt #AskExamplesDirPromptMsg)
  76.                (help #AskExamplesDirHelpMsg)
  77.                (default "Ram Disk:")
  78.           )
  79.      )
  80. )
  81.  
  82. (procedure P_CopyLibs
  83.     (working #CopyingLibsMsg)
  84.     (set #localLibsDir (tackon #source-dir "LIBS/"))
  85.     (foreach #localLibsDir "#?"
  86.           (copylib
  87.                (source (tackon #localLibsDir @each-name))
  88.                (dest #libsDir)
  89.           )
  90.      )
  91. )
  92.  
  93. (procedure P_CopyUtilities
  94.     (working #CopyingUtilitiesMsg)
  95.     (set #localUtilitiesDir (tackon #source-dir "C/"))
  96.     (foreach #localUtilitiesDir "#?"
  97.           (copylib
  98.                (source (tackon #localUtilitiesDir @each-name))
  99.                (dest #UtilitiesDir)
  100.           )
  101.      )
  102. )
  103.  
  104. (procedure P_CopyDocs
  105.     (working #CopyingGuideMsg)
  106.     (copyfiles
  107.         (source (tackon #source-dir "DOCS/english/"))
  108.           (dest #guideDir)
  109.           (optional force askuser)
  110.           (all)
  111.      )
  112. )
  113.  
  114. (procedure P_CopyExamples
  115.     (working #CopyingExamplesMsg)
  116.     (copyfiles
  117.         (source (tackon #source-dir "EXAMPLES/"))
  118.           (dest #examplesDir)
  119.           (optional force askuser)
  120.           (all)
  121.      )
  122. )
  123.  
  124. (set @default-dest "")
  125. (set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon)) (expandpath @icon)))
  126.  
  127. (P_SetMessages)
  128.  
  129. (complete 0)
  130.  
  131. (P_ChooseWhatIstall)
  132.  
  133. (if (= 0 #WhatInstall) (exit))
  134. (if (BITAND #WhatInstall 1)  (P_AskLibsDir))
  135. (if (BITAND #WhatInstall 2)  (P_AskUtiliesDir))
  136. (if (BITAND #WhatInstall 4)  (P_AskGuideDir))
  137. (if (BITAND #WhatInstall 8)  (P_AskExamplesDir))
  138.  
  139. (if (BITAND #WhatInstall 1)  (P_CopyLibs))
  140. (complete 30)
  141.  
  142. (if (BITAND #WhatInstall 2)  (P_CopyUtilities))
  143. (complete 40)
  144.  
  145. (if (BITAND #WhatInstall 4)  (P_CopyDocs))
  146. (complete 80)
  147.  
  148. (if (BITAND #WhatInstall 8)  (P_CopyExamples))
  149. (complete 100)
  150.